home *** CD-ROM | disk | FTP | other *** search
/ OpenStep 4.1 (User) / OpenStep 4.1 (User).iso / usr / lib / me / footnote.me < prev    next >
Encoding:
Text File  |  1996-08-22  |  1.0 KB  |  84 lines
  1. .nr _0 \n(c.
  2. .\"    @(#)footnote.me    2.6    3/10/86
  3. .\" This version has had comments stripped; an unstripped version is available.
  4. .de (f
  5. .ec
  6. .if "\\n(.z"|f" .tm Line \\n(c. -- Illegal footnote nesting
  7. .ie "\\n(.z"" \
  8. \{\
  9. .    nr _D \\n(dn
  10. .    nr _0 1v+\\n(nlu
  11. .    ev 2
  12. .    da |f
  13. .    in 0
  14. .    xl \\n($lu-\\n(fuu
  15. .    @F \\n(ff
  16. .    sz \\n(fp
  17. .    vs \\n(.su*\\n($Ru
  18. .    if !\\n(?f \
  19. \{\
  20. .        nr _b +1v
  21. .        $s
  22. .    \}
  23. .    br
  24. .    if \\n(.p-\\n(_b-\\n(_0-\\n(.h-1v-\\n(fs<0 \
  25. \{\
  26. .        da\"
  27. .        bc
  28. .        if !\\n(?f \
  29. .            rm |f
  30. .        da |f
  31. .        in 0
  32. .        xl \\n($lu-\\n(fuu
  33. .        @F \\n(ff
  34. .        sz \\n(fp
  35. .        vs \\n(.su*\\n($Ru
  36. .        if !\\n(?f \
  37. .            $s
  38. .        br
  39. .    \}
  40. .    rr _0
  41. .    sp \\n(fsu
  42. .    nr ?f 1
  43. .    fi
  44. .    if !"\\$1"_" \
  45. .        ti \\n(fiu
  46. .\}
  47. .el \
  48. \{\
  49. .    ev 2
  50. \!.(f \\$1
  51. .\}
  52. ..
  53. .de )f
  54. .ie "\\n(.z"|f" \
  55. \{\
  56. .    if \\n* \
  57. .        nr $f +1
  58. .    ds * \\*[\\n($f\\*]\k*
  59. .    rr *
  60. .    in 0
  61. .    da
  62. .    ev
  63. .    if \\n(_w<\\n(dl \
  64. .        nr _w \\n(dl
  65. .    nr _b +\\n(dn
  66. .    ch @f -\\n(_bu
  67. .    if \\n(.p-\\n(_b<=\\n(nl \
  68. .        ch @f \\n(nlu+\n(.Vu
  69. .    nr dn _D
  70. .    rr _D
  71. .\}
  72. .el \
  73. \{\
  74. .    br
  75. \!.)f
  76. .    ev
  77. .\}
  78. ..
  79. .if \n(ff<=0 \
  80. .    nr ff 1
  81. .if \n(fp<=0 \
  82. .    nr fp 8
  83. .nr c. \n(_0
  84.